home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / OGRID110 / GLTVR_SP.PAS < prev    next >
Pascal/Delphi Source File  |  1995-06-01  |  20KB  |  676 lines
  1. {********************************************************************
  2.  
  3.   OOGrid Library(TM) for Borland/Turbo Pascal (Real Mode/TV)
  4.   Copyright (C) 1994, 1995 by Arturo J. Monge
  5.   Portions Copyright (C) 1989,1990 Borland International, Inc.
  6.  
  7.   OOGrid Library(TM) Resources Unit:
  8.     Implements the functions needed to create the resources used
  9.     by the TSpreadSheet object.
  10.  
  11.   Copyright (C) 1995 by Arturo J. Monge
  12.  
  13.   Last Modification : March 17, 1995
  14.  
  15. *********************************************************************}
  16.  
  17. unit GLTVR_SP;
  18.  
  19. {****************************************************************************}
  20.                                  interface
  21. {****************************************************************************}
  22.  
  23. uses Dos, Objects;
  24.  
  25. { Register procedures that need to be called before using this unit:
  26.  
  27.     RegisterDialogs
  28.     RegisterViews
  29.     RegisterGLViews ( registers the inputline and the scrollbar objects )
  30.     RegisterStdDlg
  31. }
  32.  
  33. { This unit uses the GLEquate unit to get command and help context
  34.   values. If you need to modify any of those values, modify the
  35.   GLEquate unit }
  36.  
  37. procedure CreateOOGLDialogs(ResourceFile: PResourceFile);
  38. { Add to the resource file each of the dialogs used by TSpreadsheet.
  39.   Do not change the keywords used, since the TSpreadSheet object uses
  40.   these keywords to retrieve the dialogs }
  41.  
  42. procedure CreateOOGLStrings(ResourceFile: PResourceFile);
  43. { Add to the resource file the string list used by TSpreadSheet. }
  44.  
  45. {****************************************************************************}
  46.                                implementation
  47. {****************************************************************************}
  48.  
  49. uses Dialogs, Views, StdDlg, GLSupprt, GLViews, GLEquate, GLTSheet;
  50.  
  51. FUNCTION FormatDialog : PDialog;
  52. var
  53.   Dlg : PDialog;
  54.   R : TRect;
  55.   Control, HScroll : PView;
  56. Begin
  57. R.Assign(16,3,63,19);
  58. New(Dlg, Init(R, 'Formato de celdas...'));
  59. Dlg^.Options := $0343;
  60.  
  61. R.Assign(3,3,25,6);
  62. Control := New(PRadiobuttons, Init(R,
  63.   NewSItem('~I~zquierda',
  64.   NewSItem('~C~entro',
  65.   NewSItem('~D~erecha',Nil)))));
  66. Control^.HelpCtx := hcJustLeft;
  67. Dlg^.Insert(Control);
  68.  
  69.   R.Assign(2,2,17,3);
  70.   Dlg^.Insert(New(PLabel, Init(R, 'Justificación:', Control)));
  71.  
  72. R.Assign(23,7,27,8);
  73. Control := New(PInputLine, Init(R, 1));
  74. Control^.HelpCtx := hcDecimalPlaces;
  75. Dlg^.Insert(Control);
  76.  
  77.   R.Assign(27,7,30,8);
  78.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiDecimalPlaces)));
  79.  
  80.   R.Assign(2,7,21,8);
  81.   Dlg^.Insert(New(PLabel, Init(R, 'D~í~gitos decimales:', Control)));
  82.  
  83. R.Assign(23,9,27,10);
  84. Control := New(PInputLine, Init(R, 1));
  85. Control^.HelpCtx := hcCurrencyChar;
  86. Dlg^.Insert(Control);
  87.  
  88.   R.Assign(27,9,30,10);
  89.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiCurrencyCharacter)));
  90.  
  91.   R.Assign(2,9,22,10);
  92.   Dlg^.Insert(New(PLabel, Init(R, 'Caractér de ~m~oneda:', Control)));
  93.  
  94. R.Assign(3,12,31,14);
  95. Control := New(PCheckboxes, Init(R,
  96.   NewSItem('~F~ormato de moneda',
  97.   NewSItem('~P~oner comas en numeros',Nil))));
  98. Control^.HelpCtx := hcCurrencyFormat;
  99. Dlg^.Insert(Control);
  100.  
  101.   R.Assign(2,11,22,12);
  102.   Dlg^.Insert(New(PLabel, Init(R, 'Formato de números:', Control)));
  103.  
  104. R.Assign(33,3,45,5);
  105. Control := New(PButton, Init(R, '~O~k', cmOK, bfDefault));
  106. Control^.HelpCtx := hcOk;
  107. Dlg^.Insert(Control);
  108.  
  109. R.Assign(33,9,45,11);
  110. Control := New(PButton, Init(R, 'Cancelar', cmCancel, bfNormal));
  111. Control^.HelpCtx := hcCancel;
  112. Dlg^.Insert(Control);
  113.  
  114. R.Assign(33,12,45,14);
  115. Control := New(PButton, Init(R, 'Ayuda', cmHelp, bfNormal));
  116. Dlg^.Insert(Control);
  117.  
  118. Dlg^.SelectNext(False);
  119. FormatDialog := Dlg;
  120. end;
  121.  
  122. FUNCTION PasteDialog : PDialog;
  123. var
  124.   Dlg : PDialog;
  125.   R : TRect;
  126.   Control, HScroll : PView;
  127. Begin
  128. R.Assign(18,7,62,16);
  129. New(Dlg, Init(R, 'Copiar formulas...'));
  130. Dlg^.Options := $0343;
  131.  
  132. R.Assign(3,3,39,5);
  133. Control := New(PCheckboxes, Init(R,
  134.   NewSItem('No cambiar ~c~olumnas',
  135.   NewSItem('No cambiar ~l~íneas',Nil))));
  136. Control^.HelpCtx := hcCopyColLiteral;
  137. Dlg^.Insert(Control);
  138.  
  139.   R.Assign(2,2,19,3);
  140.   Dlg^.Insert(New(PLabel, Init(R, 'Copiar fórmulas:', Control)));
  141.  
  142. R.Assign(2,6,14,8);
  143. Control := New(PButton, Init(R, '~O~k', cmOk, bfDefault));
  144. Control^.HelpCtx := hcOk;
  145. Dlg^.Insert(Control);
  146.  
  147. R.Assign(16,6,28,8);
  148. Control := New(PButton, Init(R, 'Cancelar', cmCancel, bfNormal));
  149. Control^.HelpCtx := hcCancel;
  150. Dlg^.Insert(Control);
  151.  
  152. R.Assign(30,6,42,8);
  153. Control := New(PButton, Init(R, 'Ayuda', cmHelp, bfNormal));
  154. Dlg^.Insert(Control);
  155.  
  156. Dlg^.SelectNext(False);
  157. PasteDialog := Dlg;
  158. end;
  159.  
  160. FUNCTION GoToDialog : PDialog;
  161. var
  162.   Dlg : PDialog;
  163.   R : TRect;
  164.   Control, HScroll : PView;
  165. Begin
  166. R.Assign(18,8,62,15);
  167. New(Dlg, Init(R, 'Ir a...'));
  168. Dlg^.Options := $0343;
  169.  
  170. R.Assign(16,2,39,3);
  171. Control := New(PInputLine, Init(R, 10));
  172. Control^.HelpCtx := hcGoToCellInput;
  173. Dlg^.Insert(Control);
  174.  
  175.   R.Assign(39,2,42,3);
  176.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiGoToCell)));
  177.  
  178.   R.Assign(2,2,15,3);
  179.   Dlg^.Insert(New(PLabel, Init(R, 'Nueva celda:', Control)));
  180.  
  181. R.Assign(2,4,14,6);
  182. Control := New(PButton, Init(R, '~O~k', cmOK, bfDefault));
  183. Control^.HelpCtx := hcOk;
  184. Dlg^.Insert(Control);
  185.  
  186. R.Assign(16,4,28,6);
  187. Control := New(PButton, Init(R, 'Cancelar', cmCancel, bfNormal));
  188. Control^.HelpCtx := hcCancel;
  189. Dlg^.Insert(Control);
  190.  
  191. R.Assign(30,4,42,6);
  192. Control := New(PButton, Init(R, 'Ayuda', cmHelp, bfNormal));
  193. Dlg^.Insert(Control);
  194.  
  195. Dlg^.SelectNext(False);
  196. GoToDialog := Dlg;
  197. end;
  198.  
  199. FUNCTION ChangeHeaderDialog : PDialog;
  200. var
  201.   Dlg : PDialog;
  202.   R : TRect;
  203.   Control, HScroll : PView;
  204. Begin
  205. R.Assign(18,7,60,15);
  206. New(Dlg, Init(R, 'Nuevo encabezado...'));
  207.  
  208. R.Assign(3,3,37,4);
  209. Control := New(PInputLine, Init(R, 80));
  210. Control^.HelpCtx := hcChangeHeaderInput;
  211. Dlg^.Insert(Control);
  212.  
  213.   R.Assign(37,3,40,4);
  214.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiNewHeader)));
  215.  
  216.   R.Assign(2,2,31,3);
  217.   Dlg^.Insert(New(PLabel, Init(R, '~N~uevo encabezado de columna:', Control)));
  218.  
  219. R.Assign(2,5,14,7);
  220. Control := New(PButton, Init(R, 'O~k~', cmOk, bfDefault));
  221. Control^.HelpCtx := hcOk;
  222. Dlg^.Insert(Control);
  223.  
  224. R.Assign(15,5,27,7);
  225. Control := New(PButton, Init(R, 'Cancelar', cmCancel, bfNormal));
  226. Control^.HelpCtx := hcCancel;
  227. Dlg^.Insert(Control);
  228.  
  229. R.Assign(28,5,40,7);
  230. Control := New(PButton, Init(R, 'Ayuda', cmHelp, bfNormal));
  231. Dlg^.Insert(Control);
  232.  
  233. Dlg^.SelectNext(False);
  234. ChangeHeaderDialog := Dlg;
  235. end;
  236.  
  237.  
  238. FUNCTION PrintDialog : PDialog;
  239. var
  240.   Dlg : PDialog;
  241.   R : TRect;
  242.   Control, HScroll : PView;
  243. Begin
  244. R.Assign(1,3,78,20);
  245. New(Dlg, Init(R, 'Imprimir...'));
  246. Dlg^.Options := $0343;
  247.  
  248. R.Assign(2,3,24,5);
  249. Control := New(PRadiobuttons, Init(R,
  250.   NewSItem('~I~mpresora',
  251.   NewSItem('~A~rchivo',Nil))));
  252. Control^.HelpCtx := hcPrintToPrinter;
  253. Dlg^.Insert(Control);
  254.  
  255.   R.Assign(1,2,13,3);
  256.   Dlg^.Insert(New(PLabel, Init(R, 'Imprimir a:', Control)));
  257.  
  258. R.Assign(25,3,47,5);
  259. Control := New(PRadiobuttons, Init(R,
  260.   NewSItem('~N~ormal',
  261.   NewSItem('~C~ondensado',Nil))));
  262. Control^.HelpCtx := hcPrintNormal;
  263. Dlg^.Insert(Control);
  264.  
  265.   R.Assign(24,2,45,3);
  266.   Dlg^.Insert(New(PLabel, Init(R, 'Tamaño de impresión:', Control)));
  267.  
  268. R.Assign(2,7,24,10);
  269. Control := New(PRadiobuttons, Init(R,
  270.   NewSItem('No i~m~primir',
  271.   NewSItem('~P~ágs. izquierdas',
  272.   NewSItem('~T~odas las páginas',Nil)))));
  273. Control^.HelpCtx := hcPrintRowsNo;
  274. Dlg^.Insert(Control);
  275.  
  276.   R.Assign(1,6,18,7);
  277.   Dlg^.Insert(New(PLabel, Init(R, 'Imprimir lineas:', Control)));
  278.  
  279. R.Assign(25,7,47,10);
  280. Control := New(PRadiobuttons, Init(R,
  281.   NewSItem('No imp~r~imir',
  282.   NewSItem('Págs. ~s~uperiores',
  283.   NewSItem('To~d~as las páginas',Nil)))));
  284. Control^.HelpCtx := hcPrintColsNo;
  285. Dlg^.Insert(Control);
  286.  
  287.   R.Assign(24,6,43,7);
  288.   Dlg^.Insert(New(PLabel, Init(R, 'Imprimir columnas:', Control)));
  289.  
  290. R.Assign(19,12,24,13);
  291. Control := New(PInputLine, Init(R, 3));
  292. Control^.HelpCtx := hcTopMargin;
  293. Dlg^.Insert(Control);
  294.  
  295.   R.Assign(2,12,19,13);
  296.   Dlg^.Insert(New(PLabel, Init(R, 'Margen s~u~perior:', Control)));
  297.  
  298. R.Assign(19,14,24,15);
  299. Control := New(PInputLine, Init(R, 3));
  300. Control^.HelpCtx := hcBottomMargin;
  301. Dlg^.Insert(Control);
  302.  
  303.   R.Assign(2,14,19,15);
  304.   Dlg^.Insert(New(PLabel, Init(R, 'Margen in~f~erior:', Control)));
  305.  
  306. R.Assign(43,12,48,13);
  307. Control := New(PInputLine, Init(R, 3));
  308. Control^.HelpCtx := hcLeftMargin;
  309. Dlg^.Insert(Control);
  310.  
  311.   R.Assign(25,12,43,13);
  312.   Dlg^.Insert(New(PLabel, Init(R, 'Margen i~z~quierdo:', Control)));
  313.  
  314. R.Assign(43,14,48,15);
  315. Control := New(PInputLine, Init(R, 3));
  316. Control^.HelpCtx := hcRightMargin;
  317. Dlg^.Insert(Control);
  318.  
  319.   R.Assign(25,14,41,15);
  320.   Dlg^.Insert(New(PLabel, Init(R, 'Margen d~e~recho:', Control)));
  321.  
  322. R.Assign(48,3,71,5);
  323. Control := New(PCheckboxes, Init(R,
  324.   NewSItem('Contorno de ~l~ínea',
  325.   NewSItem('~B~ordes en negrita',Nil))));
  326. Control^.HelpCtx := hcLineOutline;
  327. Dlg^.Insert(Control);
  328.  
  329.   R.Assign(47,2,54,3);
  330.   Dlg^.Insert(New(PLabel, Init(R, 'Otros:', Control)));
  331.  
  332. R.Assign(70,7,75,8);
  333. Control := New(PInputLine, Init(R, 3));
  334. Control^.HelpCtx := hcPageRows;
  335. Dlg^.Insert(Control);
  336.  
  337.   R.Assign(49,7,66,8);
  338.   Dlg^.Insert(New(PLabel, Init(R, '~1~. Líneas p/pag:', Control)));
  339.  
  340. R.Assign(70,8,75,9);
  341. Control := New(PInputLine, Init(R, 3));
  342. Control^.HelpCtx := hcNormalCols;
  343. Dlg^.Insert(Control);
  344.  
  345.   R.Assign(49,8,67,9);
  346.   Dlg^.Insert(New(PLabel, Init(R, '~2~. Cols normales:', Control)));
  347.  
  348. R.Assign(70,9,75,10);
  349. Control := New(PInputLine, Init(R, 3));
  350. Control^.HelpCtx := hcCondensedCols;
  351. Dlg^.Insert(Control);
  352.  
  353.   R.Assign(49,9,70,10);
  354.   Dlg^.Insert(New(PLabel, Init(R, '~3~. Cols condensadas:', Control)));
  355.  
  356. R.Assign(49,12,62,14);
  357. Control := New(PButton, Init(R, '~O~k', cmOk, bfDefault));
  358. Control^.HelpCtx := hcOk;
  359. Dlg^.Insert(Control);
  360.  
  361. R.Assign(62,12,75,14);
  362. Control := New(PButton, Init(R, 'Cancelar', cmCancel, bfNormal));
  363. Control^.HelpCtx := hcCancel;
  364. Dlg^.Insert(Control);
  365.  
  366. R.Assign(62,14,75,16);
  367. Control := New(PButton, Init(R, 'Ayuda', cmHelp, bfNormal));
  368. Dlg^.Insert(Control);
  369.  
  370. R.Assign(48,6,72,7);
  371. Control := New(PStaticText, Init(R, 'Configuración de página:'));
  372. Dlg^.Insert(Control);
  373.  
  374. R.Assign(2,11,11,12);
  375. Control := New(PStaticText, Init(R, 'Márgenes:'));
  376. Dlg^.Insert(Control);
  377.  
  378. Dlg^.SelectNext(False);
  379. PrintDialog := Dlg;
  380. end;
  381.  
  382.  
  383. FUNCTION SortDialog : PDialog;
  384. var
  385.   Dlg : PDialog;
  386.   R : TRect;
  387.   Control, HScroll : PView;
  388. Begin
  389. R.Assign(15,3,64,20);
  390. New(Dlg, Init(R, 'Ordernar...'));
  391. Dlg^.Options := $0343;
  392.  
  393. R.Assign(3,3,23,4);
  394. Control := New(PInputLine, Init(R, 80));
  395. Control^.HelpCtx := hcFirstKey;
  396. Dlg^.Insert(Control);
  397.  
  398.   R.Assign(23,3,26,4);
  399.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiSortFirstKey)));
  400.  
  401.   R.Assign(2,2,17,3);
  402.   Dlg^.Insert(New(PLabel, Init(R, '~P~rimera llave:', Control)));
  403.  
  404. R.Assign(30,3,47,5);
  405. Control := New(PRadiobuttons, Init(R,
  406.   NewSItem('~A~scendente',
  407.   NewSItem('~D~escendente',Nil))));
  408. Control^.HelpCtx := hcAscending;
  409. Dlg^.Insert(Control);
  410.  
  411.   R.Assign(29,2,36,3);
  412.   Dlg^.Insert(New(PLabel, Init(R, 'Orden:', Control)));
  413.  
  414. R.Assign(3,7,23,8);
  415. Control := New(PInputLine, Init(R, 80));
  416. Control^.HelpCtx := hcSecondKey;
  417. Dlg^.Insert(Control);
  418.  
  419.   R.Assign(23,7,26,8);
  420.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiSortSecondKey)));
  421.  
  422.   R.Assign(2,6,17,7);
  423.   Dlg^.Insert(New(PLabel, Init(R, '~S~egunda llave:', Control)));
  424.  
  425. R.Assign(30,7,47,9);
  426. Control := New(PRadiobuttons, Init(R,
  427.   NewSItem('As~c~endente',
  428.   NewSItem('D~e~scendente',Nil))));
  429. Control^.HelpCtx := hcAscending;
  430. Dlg^.Insert(Control);
  431.  
  432.   R.Assign(29,6,36,7);
  433.   Dlg^.Insert(New(PLabel, Init(R, 'Orden:', Control)));
  434.  
  435. R.Assign(3,11,23,12);
  436. Control := New(PInputLine, Init(R, 80));
  437. Control^.HelpCtx := hcThirdKey;
  438. Dlg^.Insert(Control);
  439.  
  440.   R.Assign(23,11,26,12);
  441.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiSortThirdKey)));
  442.  
  443.   R.Assign(2,10,17,11);
  444.   Dlg^.Insert(New(PLabel, Init(R, '~T~ercera llave:', Control)));
  445.  
  446. R.Assign(30,11,47,13);
  447. Control := New(PRadiobuttons, Init(R,
  448.   NewSItem('Ascenden~t~e',
  449.   NewSItem('Desce~n~dente',Nil))));
  450. Control^.HelpCtx := hcAscending;
  451. Dlg^.Insert(Control);
  452.  
  453.   R.Assign(29,10,36,11);
  454.   Dlg^.Insert(New(PLabel, Init(R, 'Orden:', Control)));
  455.  
  456. R.Assign(2,14,15,16);
  457. Control := New(PButton, Init(R, '~O~k', cmOk, bfDefault));
  458. Control^.HelpCtx := hcOk;
  459. Dlg^.Insert(Control);
  460.  
  461. R.Assign(18,14,31,16);
  462. Control := New(PButton, Init(R, 'Cancelar', cmCancel, bfNormal));
  463. Control^.HelpCtx := hcCancel;
  464. Dlg^.Insert(Control);
  465.  
  466. R.Assign(34,14,47,16);
  467. Control := New(PButton, Init(R, 'Ayuda', cmHelp, bfNormal));
  468. Dlg^.Insert(Control);
  469.  
  470. Dlg^.SelectNext(False);
  471. SortDialog := Dlg;
  472. end;
  473.  
  474. FUNCTION GetWidthDialog : PDialog;
  475. var
  476.   Dlg : PDialog;
  477.   R : TRect;
  478.   Control, HScroll : PView;
  479. Begin
  480. R.Assign(18,8,62,15);
  481. New(Dlg, Init(R, 'Nuevo ancho...'));
  482. Dlg^.Options := $0343;
  483.  
  484. R.Assign(17,2,39,3);
  485. Control := New(PInputLine, Init(R, 10));
  486. Control^.HelpCtx := hcGetWidthInput;
  487. Dlg^.Insert(Control);
  488.  
  489.   R.Assign(39,2,42,3);
  490.   Dlg^.Insert(New(PHistory, Init(R, PInputline(Control), hiNewWidth)));
  491.  
  492.   R.Assign(3,2,16,3);
  493.   Dlg^.Insert(New(PLabel, Init(R, 'Nuevo ancho:', Control)));
  494.  
  495. R.Assign(3,4,15,6);
  496. Control := New(PButton, Init(R, '~O~k', cmOK, bfDefault));
  497. Control^.HelpCtx := hcOk;
  498. Dlg^.Insert(Control);
  499.  
  500. R.Assign(16,4,28,6);
  501. Control := New(PButton, Init(R, 'Cancelar', cmCancel, bfNormal));
  502. Control^.HelpCtx := hcCancel;
  503. Dlg^.Insert(Control);
  504.  
  505. R.Assign(29,4,41,6);
  506. Control := New(PButton, Init(R, 'Ayuda', cmHelp, bfNormal));
  507. Dlg^.Insert(Control);
  508.  
  509. Dlg^.SelectNext(False);
  510. GetWidthDialog := Dlg;
  511. end;
  512.  
  513. function PrintToDialog : PFileDialog;
  514. var
  515.   Dialog : PFileDialog;
  516. begin
  517.   Dialog := New(PFileDialog, Init('*.TXT','Imprimir a...','~I~mprimir a:',
  518.     fdOkButton + fdHelpButton, 108));
  519.   PrintToDialog := Dialog;
  520. end; {...PrintToDialog }
  521.  
  522. function InputLine: PSheetInputLine;
  523. { Returns a pointer to a TSheetInputLine that will be used in a
  524.   TInputDialog object, in TSpreadSheet's HandleInput method.  It
  525.   is stored in the resource file to allow the use of a customizable
  526.   help context value (stored in the hcInputLine constant) }
  527. var
  528.   Input : PSheetInputLine;
  529. begin
  530.   New(Input, Init(255));
  531.   Input^.HelpCtx := hcInputLine;
  532.   InputLine := Input;
  533. end;
  534.  
  535. function PrintingDialog : PDialog;
  536. var
  537.   Dlg : PDialog;
  538.   R : TRect;
  539.   Control, HScroll : PView;
  540. Begin
  541. R.Assign(23,9,56,15);
  542. New(Dlg, Init(R, 'Información'));
  543. Dlg^.HelpCtx := hcPleaseWait;
  544. Dlg^.Options := $034b;
  545. Dlg^.Eventmask := $FC00;
  546.  
  547. R.Assign(2,2,31,4);
  548. Control := New(PStaticText, Init(R, ^C'Imprimiendo archivo... por favor espere.'^M+
  549.   ^C'(presione ESC para cancelar)'));
  550. Dlg^.Insert(Control);
  551.  
  552. Dlg^.SelectNext(False);
  553. PrintingDialog := Dlg;
  554. end;
  555.  
  556. function SortingDialog : PDialog;
  557. var
  558.   Dlg : PDialog;
  559.   R : TRect;
  560.   Control, HScroll : PView;
  561. Begin
  562. R.Assign(23,9,56,15);
  563. New(Dlg, Init(R, 'Información'));
  564. Dlg^.HelpCtx := hcPleaseWait;
  565. Dlg^.Options := $034b;
  566. Dlg^.Eventmask := $FC00;
  567.  
  568. R.Assign(2,2,31,4);
  569. Control := New(PStaticText, Init(R, ^C'Ordenando datos...'^M^C'por favor espere.'));
  570. Dlg^.Insert(Control);
  571.  
  572. Dlg^.SelectNext(False);
  573. SortingDialog := Dlg;
  574. end;
  575.  
  576. function UpdatingTablesDialog : PDialog;
  577. var
  578.   Dlg : PDialog;
  579.   R : TRect;
  580.   Control, HScroll : PView;
  581. Begin
  582. R.Assign(23,9,56,15);
  583. New(Dlg, Init(R, 'Información'));
  584. Dlg^.HelpCtx := hcPleaseWait;
  585. Dlg^.Options := $034b;
  586. Dlg^.Eventmask := $FC00;
  587.  
  588. R.Assign(2,2,31,4);
  589. Control := New(PStaticText, Init(R, ^C'Actualizando tablas...'^M^C'por favor espere.'));
  590. Dlg^.Insert(Control);
  591.  
  592. Dlg^.SelectNext(False);
  593. UpdatingTablesDialog := Dlg;
  594. end;
  595.  
  596. {****************************************************************************}
  597. {**                       CreateOOGLDialogs procedure                      **}
  598. {****************************************************************************}
  599.  
  600. procedure CreateOOGLDialogs(ResourceFile: PResourceFile);
  601. begin
  602.   ResourceFile^.Put(FormatDialog, 'FormatDialog');
  603.   ResourceFile^.Put(PasteDialog, 'FormulasDialog');
  604.   ResourceFile^.Put(GoToDialog, 'GoToDialog');
  605.   ResourceFile^.Put(ChangeHeaderDialog, 'ChangeHeaderDialog');
  606.   ResourceFile^.Put(PrintDialog, 'PrintDialog');
  607.   ResourceFile^.Put(SortDialog, 'SortDialog');
  608.   ResourceFile^.Put(GetWidthDialog, 'GetWidthDialog');
  609.   ResourceFile^.Put(InputLine, 'InputLine');
  610.   ResourceFile^.Put(PrintToDialog, 'PrintToDialog');
  611.   ResourceFile^.Put(PrintingDialog, 'PrintingDialog');
  612.   ResourceFile^.Put(SortingDialog, 'SortingDialog');
  613.   ResourceFile^.Put(UpdatingTablesDialog, 'UpdatingTablesDialog');
  614. end; {...CreateOOGLDialogs }
  615.  
  616. {****************************************************************************}
  617. {**                       CreateOOGLStrings procedure                      **}
  618. {****************************************************************************}
  619.  
  620. procedure CreateOOGLStrings(ResourceFile: PResourceFile);
  621. var
  622.   S: PStrListMaker;
  623. begin
  624.   S := New(PStrListMaker, Init(10000, 100));
  625.  
  626.   S^.Put(sAutoCalcLetter, 'C');
  627.   S^.Put(sBlockDeleteMsg, 'Borrando celdas seleccionadas... por favor espere.');
  628.   S^.Put(sBlockName, 'Block:');
  629.   S^.Put(sCancelPrintJob, 'Cancelar impresión ?');
  630.   S^.Put(sCellError, 'ERROR');
  631.   S^.Put(sCellLockedInfo, '[Pr]');
  632.   S^.Put(sCellsProtectedMsg, 'Las celdas seleccionadas están protegidas y no pueden ser modificadas.');
  633.   S^.Put(sCellUnlockedInfo, '[D]');
  634.   S^.Put(sColumnEntryIndicator, 'Columna');
  635.   S^.Put(sCopyCellsMsg, 'Copiar: Indique destino y presione ENTER (o selecctione ''Pegar'' del menu)');
  636.   S^.Put(sDisplayFormulasLetter, 'F');
  637.   S^.Put(sDisplayHeadersLetter, 'N');
  638.   S^.Put(sEmptyCellName, 'Vacía');
  639.   S^.Put(sEndKeyPressedLetter, 'E');
  640.   S^.Put(sFilePrintErrorMsg, 'Error imprimiendo documento.  ReIntentar?');
  641.   S^.Put(sFormatErrorMsg, 'Errores de formato:');
  642.   S^.Put(sFormatError1Msg, ^M'∙ Número de decimales no válido.');
  643.   S^.Put(sFormatError2Msg, ^M'∙ Tipo de moneda no válido.');
  644.   S^.Put(sFormulaCellName, 'Formula');
  645.   S^.Put(sInvalidCellMsg, 'Celda no válida.');
  646.   S^.Put(sInvalidWidthMsg, 'Ancho de columna fuera del rango permitido.');
  647.   S^.Put(sMoveCellsMsg, 'Mover: Indique destino y presione ENTER (o seleccioned ''Pegar'' del menu)');
  648.   S^.Put(sParseError1, 'Desbordamiento de pila de análisis.');
  649.   S^.Put(sParseError2, 'Rango de celdas no válido.');
  650.   S^.Put(sParseError3, 'Falta expresión.');
  651.   S^.Put(sParseError4, 'Falta operador.');
  652.   S^.Put(sParseError5, 'Falta paréntesis abierto.');
  653.   S^.Put(sParseError6, 'Falta dirección de celda.');
  654.   S^.Put(sParseError7, 'Falta operador o paréntesis cerrado.');
  655.   S^.Put(sPrinterPrintErrorMsg, 'La impresora no está respondiendo.  Reintentar?');
  656.   S^.Put(sPrintInitErrorMsg, 'La impresora no pudo ser inicializada.  Reintenter?');
  657.   S^.Put(sPrintToWildCard, '*.TXT');
  658.   S^.Put(sRecalcMsg, 'Recalculando valores de celdas... por favor espere.');
  659.   S^.Put(sRepeatCellName, 'Repetición');
  660.   S^.Put(sTempFileName, 'tstemp.tmp');
  661.   S^.Put(sTextCellName, 'Texto');
  662.   S^.Put(sValueCellName, 'Valor');
  663.   S^.Put(sWidthLetter, 'A');
  664.  
  665.   ResourceFile^.Put(S, 'SheetStrings');
  666.   Dispose(S, Done);
  667. end; {...CreateOOGLStrings }
  668.  
  669. {****************************************************************************}
  670. {**                                                                        **}
  671. {**                       Unit's initialization Section                    **}
  672. {**                                                                        **}
  673. {****************************************************************************}
  674. begin
  675.   DisplayEnabled := False;
  676. end. {...GLTVR_US unit }